Don't bug out on improper lists in pp-emacs-lisp-code

* lisp/emacs-lisp/pp.el (pp--format-list): Don't bug out on
improper lists (bug#52917).

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index d199716b2c511e7d46f63dd4d722dee79199a3e6..e782cdb1dab1c361a79a3209f2b0ac5de2f0b8ea 100644 (file)
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -273,7 +273,10 @@ Use the `pp-max-width' variable to control the desired line length."
     (insert "(")
     (pp--insert start (pop sexp))
     (while sexp
-      (pp--insert " " (pop sexp)))
+      (if (consp sexp)
+          (pp--insert " " (pop sexp))
+        (pp--insert " . " sexp)
+        (setq sexp nil)))
     (insert ")")))
 
 (defun pp--format-function (sexp)